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Introducao a Linouzdédm Miquina CCOND. Jcurcscárcacê 
Enciclopedia da Linguagem Basic (parte 2).ccenuca a 


PROGRAMAS cas 
MAPA LO ascócidadtd Rs TETE CRT A ER, 


Calculo do Palinomio de Lesendre,scasvoes« LB 
PROGRAMAS SPECTRUM 
REV SL avos dida di e ERRA pre E ria dA 


Ficheiro da Enderecos. swusccsassenaccase dO 


PROGRAMAS HEHERAIN 
ELISA EETIRRTENRRITIS TETO TO. 


Programacao Estruturada (ultima parte).ccscccrs co. LD 
Sof Tua SOC TPUM nv descrnnsscduss Crises cada 


ANEXO: Cupao de Inscricao 


o 


E O 


E DE DE qa E a ed PN 2 si e o Sai 


TESSSSISSRNSCDDIDZZESSDDFZRDSSIDasaNaSa=asannsaszsnsznnzannnnnzas== 


Gli AGEM MAS UINA 
cLontimiaIcao 


PROGRAMA Sa -— Transferenc 
duma ROTIHA, TABELA ou DADOS 
da ROM para a RAM, utilizando 
a mesma instrucaode 


que um tal trabalho” 

perguntar o leitor, 
pols a primeira vista parece 
realmente um trabalho inutil. 
No entanto, se um utilizador 
da maquina tiver uma rotina da 
ROM muma zona da memoria aonde 
lhe possa mexer «modificar o 
sentido, o salto, etc. 2, 
possivelmente encontrara 
muitas respostas, tirara 
muitas duvidas e talvez - quem 
sabe” - descubra algo sobre a 
maquina, O geu comportamento 
ou formas de programacao que 
ate agora nao tenham sido 
experimentadas. 

Por este 
duvida alaunma, 
de investigacao 
Experimente sem 
lembre-se que alguns avancos 
mais notorios da tecnica de 
computacao nao foram criados 
por grandes sumidades Em 
electronica, mas sim por 
leigos como nos. 

Para, executar esta 
experiencia, basta somente na 
ROTINA CM 1 carregar o registo 
HL com a localizaçao 
pretendida e carregar Br com o 
numero de bytes a transterir. 

E claro que muitos 
utilizadores do Ss não devem 
saber gonde se iniciam e 
terminam as rotinas da ROM, 
mas nisso vamos nos tentar 
aljuda-los, fornecendo-lhes um 
indice de alaumas rotinas que 
ainda não toram referenciadas 
neste textos 


Para, 
Poderia 


lado tem, sem 
um vasto campo 
a sua espera. 
receio = 


13 


Eis alaurmas como exemplo: 


A Fatima de comando SAVE 
.B2r6 a BssE, 

sub rotinas C<OiFC a BIFE e 
B2gl a B2Br 4 

A Fotina de comando LORD 
cossA a BAY) 

H Rotina de pesquisa do 


teclado C<O2ZBB a B2ZES) 


do teclado 


capitulo 
PrOgrarRÃa, 
permita 


de descodificacao 
(MED a Yr7DE AS. 


A Rotina 


finalizar este 
“vamos executar um 
(o 3SD>, que nos 


obter no ecran imagem 


E para, 


em movimento. 


termos 
rotinas 
primeira, 
apos 
Ja 
este 
utilizados 
por 
aplicaçao, 
algumas 
quais 
importante 
Provocar 
BRASIL 
corrigido 
desmoronamento 
utilizar-se 

Les Ms 
da, 
representa 
tsalto 


IMAGEM ANIMADA 


Longo deste capitulo 
introduzido as varias 
em codigo maquina na 
linha de prosrama, 
uma  instrucao REM. Como 
foi afirmado mo inicio, 
sistema e um dos mais 
neste computador, 
muito facil a sua 
mas enferma de 
desvantagens entre as 
talvez a mais 
seja o facto de 

o colapso do sistema 
que implica, se Tão 
de imediato, o 
do programa ao 
como instruçcao 
113, que dentro 
BASIC ZASIl 
instrução 
nova Linha) 


Ro 


ser 


o codigo 
textura, 
ma, 


para IATA, 


» 


2) 


HEW LIHE, 


Leroy a, introducam deste 
caracter, as duas ingtrucoes 
imediatas Sam consideradas 
pal] (Ie Mr TUMERO o COMmpoZtco é 
butes E ervuladas para a 


rotina ROM —- ESCREVA UM HUMERO 
DECIMAL COMPREEENDIDO EHTRE 1 
E 39999 —- à que fara surair uma 
TIDILA Linha ERAS IC inserida 
entre a fraamentada e a linha 
seguinte do Pprograra. 

O numero de ordem dessa mova 
linha depende do valor decimal 
dos dois bLutes, segundo a 
rFormula Ja nossa conhecida que 
estabelece ser oo numero de 
linha igual ao valor decimal 
do primeiro bute multiplicado 
por 256 e somado ao valor do 
segundo byte. 


Qutro fenomeno não menos 
catastrofico para o programa 
al “correr dentro dessa mesma 


linha. Us dois butes seguintes 
dever indicar o Tumero de 
bautes contido nessa linha de 
instrucoes e so por uma arande 


a 


coincidencia EsSo podera 
acontecer, o que corresponde a 
dizer que o sistema BASIC ira 
rejeitar essa 1 
1 


1 
taça a, prIMmElra listagern, 
Entao a laumas LNSÊTrUCOES 
senao as restantes linhas do 
programa, vao dezapareçcer. 

FiItLUIATOES como esta dewer 
ser remediadas artes de tazer 
correr LATE EerOqrarma., para 
evitar perde-las, 

[Tm] Cie por VEZES ao 
etlaborarmos Uria. rotIiTia, Err 
codigo maguira nao podemos 
tualr a Situada de 
Tarregarinças BR qua quer 
registo do SA coma conteudo 
118, uma. sOQLUuTao e ca de 
apbandonarmos esta torna, e 
EVPOrTte dO Caio (a primeira 
Lima, mio PrOGraMa o QUE Su 
LEEDS fazer qu Eee dra 
capitulo, outra solucal & a dE 
Fualrmos E Conteudo BED 


arranidando 2? numeros cula soma 
seia ele proprio. 


pi 
Er pa O MAGALI LSTto Edge 


ser feito introduzido 
registo co contendo 11Y & 


ivcrementanmdo-o (somar 1 so 
4 


Er dsas rotinas do 
programa zeguinte teremos de 
[RR = | ad Ui a, ESSE PEQUETIO 


truque aritmetico. 


a: A INSTRUCAO SCROLL 


A FOM do Es ver mumida de 
uma rotina c<SCROLL ROUTINE, 
endereco SAGE), QUE mQvE UM 
Elaoco do ecran de baixo para 
cima Ho programa anterior 

E 


"ARTE" onvencionamos chamar 
a. Essa direccao sentido 
SUL-NORTE. 


à primeira parte da rotina 
acerta os valores correctos 


para, ã, posicao FRINT mao 
ficheiro de prOojeccao, = 
para a pozgicao PRINT AT com 


o mumero de linha e coluna. 

A segunda parte da rotina 
prepara, o mo meto que 
escreve na linha sequinte qo 
conteudo da anterior. 


FILE alo, 


fel 


Lo CROMOS 


LO EB, CDF-EGZ> o mumero de 
linhas em branco 
fundo do ecran 


1 
Lã. SLOL-ADDE > sub- 
rotina de 
posicao PRIHT AT 
CALL GIGSE, cONE-SPACE » 
subrotina. 
que Cria um ESPATO, 
LL AH, cl: 
Lo Cut A 
LO Hh, CL-FILE: endereco 
inicial do fi- 
cheiro de PrOQJECTAO. 


- o uu + que 


$ 
RL. ES 


IHO HL 

Lodo Et; MR 
A os o da 
CPIER 


Je mas, cRECLAIM 14 


truco 


ama E O A 


e ss mto mes a a 


NEEDS a - ii a SOS CS O — —————————————— —— —— ——— me 
no O O inimento am 


Para, ter bem presente 
este efeito, VAMOS 
escrever BR PEQUENO 


programa em BASIC. 


14 REM SCROLL da ROM 
cdireccao SUL-HORTE > 


0 FOR N=1 TO 200 

S0 PRINT AT Zi, 28XkRND; "x" 
43 SCROLL 

SO NEXT N 


RUN 


Este Proarama vai 
deslocar uma. 


uma, instrução FND, so 
lonso do ecran. 


O movimento SCROLL 
utilizado em quase todo 
tipo de Prosgramacao, mas 
E essencialmente er 
percoaramas de JQOSDE QUE O 
ce da tera sentido a 

ecessidade de o executar 
Sid da directoes do 
ECA, serm contudo saber 
como faze-lo, 


DO mM 


Ê possivel, elaborando 


pequenas rotinas err 
codigo MaAGLina, obter 
Esse movimento nas 
restantes direcrars 
( DESTE-ESTE, ESTE-DESTE & 
HORTE-SIJL > como vamos 


demonstrar a seguir, 


serie de. 
asteriscos | 
digseminados ao acaso por 


REM (30 caracteres) 
REM ce caracteres 
REM (3 caracteres » 


68 REM SCROLL QESTE-ESTE 

co FOR N = | TO 2a 

ra PRINT AT 21 & RND. B; “x” 
Bo LET E = USE 16514 

ag NEXT 

93 STOP 


lg REM SCROLL ESTE-QESTE 
116 FOR N = 1 TO 200 


PRINT AT 21: RND, 31; "x" 
LET B = USR 1€559 

NEXT N 

STOP 

REM SCROLL NORTE-SUL 


166 FOR HH = 1 TO zag 

LD PRINT AT 2, 34 % RND; "x" 

150 LET E = LISR 165826 

136 NEXT NH 

195 STOP 
“amos agora introduzir as 3 rotinas 
em Celta nas REMs 1, 2 e 3. Para o 
fazer sirva-se da FOTINA & o 
programa monitor ou entao escreva 


Uma Como esta: 


Mo a a 


MA EU m 


ooo 


in 


(Continua no proximo numero) 


INPUT x £o primeiro endereco 
util de cada REM» 

INPUT CO Ccodisgo cem. em 
decimal) 

IF É > 255 THEN &TQF 

PORE x, C 

PRINT AT 15. 2 

LET = Kg + 1 

GOTO SIR 


PEEK x 


€ ESTA FUNCAO E USADA EM basic PARA CALCULAR O arccos DE UM ARGUMENTO 


nm <EM RADIAHOS. «NÃO EM GRAUS > 


PODE SER APRESENTADA SOB AS FORMAS : AC . ACSD ACSG ARCOS 
ARCCOS 

MATEMATICAMENTE, DEFIHIMOS ARCCOS COMO : angulo A de um triangulo 
rectangulo formado pela hipotenusa de comprimento H e por um dos 


lados de comprimento x 


dd Q GPOSTO À ARCCOS E cosseno de A 


o cosseno de um angulo C<cuja medida sera A radianos) e o comprimento 
do lado adjacente ao angulo dividido pela hipotenusa do triangulo 
rectangulo 


COS CR) = 42H 


PROGRAMA TESTE 


13 REM "PROGRAMA TESTE ACS" 

£g PRINT "DAR ENTRADA DO VALOR CO cosseno « de -1l ate 19"; 

30 INPUT C 

49 LET UU = ACS cr» 

0 PRINT "O ANGULO COM A RELACÃO MH DE Cc" E=":W;" RADIANOS" 
SB STOP 


por exemplo, se usar o valor O=Acasscssntera como resultado: 


API PANTA T3f3 be sa er PN / -. .- 
a e alo um us lia É do “ul! e a o qe. 
= 1.SPA7I96S qu arredondando ce H=1L.Zrta cadianas 


PARA COHNvVERFTER VALORES CE FADIANOS EM GRAUS, MULTIFPLIGUE A MEDICA DO 
aNGULO CEM FADIAHMOS 2 POR (rc. SP GITA, por exemplo 


49 LET WU = ACS CC) * Sr. 292578 


OBSERVAÇÃO 


ALGUNS COMPUTADORES CALÇULAM O ANGULO EM GRAUS OU GRADOS «100 GRADOS = 
ag GRAUS». ESTES COMPUTADORES USAM 2.2... ACSD PARA GRAUS «0u.. E ALSO 
PARA GRALCS 

E 
SE O SEU COMPUTADOR HAO POSSUI ESTA FUNCAO, PODERA USAR COMO ] 
ALTERHAT DA 


“ERIFICAR SE ACEITA ,... ATH Carco tangente) e SOR craiz quadrada 
substituir na linha dy, por 


49 LET U = 1.5708 - 2 XATN CCC I+rSuR Ci ELO0) 


E (<FICHEIRO? ASI 
= (Pag. seguinte) 16K 





In. YOUR COMPUTER, Abril53 
Trad.e Adapt.de J. MAGALHAES 


Este programa para o Zx8i 16k permite dar a ficha a estrutura que 
pretender - OPÇÃO 1. Por exemplo: 


Home Morada, 
Morada O Telefone 
Idade Idade 
Qbs . 


A OPÇÃO 2 destina-se 30 preenchimento da ficha. 

E ainda possivel verificar, alterar ou anular qualquer ficha, devendo 
para isso dar entrada do nome ou de qualquer outro dado que permita a 
sua identificacao, Se, por qualquer motivo, nao lhe for possivel 
seguir esta via, recorra a pesquisa completa do ficheiro desde a 
primeira ficha, usando "NHEULINE”. 


* Se por acaso alterou qualquer ficha, nao se esqueca de agravar q 
programa, 

*% Se modificar a estrutura da ficha, todas as outras serao anuladas 

*£ Se pretender continuar um ficheiro anteriormente aravado, não 
utilize a instrucao "RUN" maz “GOTO 48"; Caso contrario perdera todas 
as outras fichas 


DESERVACÇÃO : 

Se com a sua estrutura de ficha o programa para com erro codigo 
doca. tera de redimensionar a matriz Ef na linha GecFPoar sue La: 
a LIM EBC cg 


a ps 


E 
e 
e 


Rj 
a 


a ti CO =) Oi 


pá 
VOIGaEARGS 


pá quê 
ES, 


tou 


ipê pá pa pi pé 
DONA : 
SS5SS8 


Py 
Ss 
(ss 


218 
eta 
Zea 
Est 
era 
Zea 
Po (7a 
soy 
sS1g 
Set 
ILS 
33H 
Sat 
Sat 
26H 
STA 
(= 
SI 
dás 
agr 
45 
SE 
as 
as 
Gab 
ita 
= 1.61 
Ser 
Std 
464 
ES t4 


OTTO 
LR SEE RE 
ADOTE! 


a! 
Do 


REM “"UHIFILE" 

DI BE SABA ) 

PRINT AT Gg, dB: "Ficheira” 
PRINT ,;"“DPCOES” 
PRINT AT &.g;" 
PRINT sa” é- ENTRADA DE DADOS" 
PRINT 4," 
PRINT 5," q- ENCERRAR FICHEIRO" 

SL O 

INPUT & 

CLS 

IF Z=1 THEH GOSUE 258 

IF Z=2 THEN GOSUEB 420 

IF Z=3 THEM GOSUE 1038 

IF Z=4 THEN GOSUE 200 

CLS 

GOTO 4 

PRINT AT 18,11;"encerrado” 

PRINT AT 12,6;"% GRAVE OQ FICHEIRO X" 
PRIMT AT 13,94;"x% SE SOFREU ALTERAÇÕES 
PRINT AT 15,53; "C GOTO caga o" 

STOP 

PRINT AT B,7:"estrutura da Ficha" 
PRINT ,., "NUMERO DE INFORMACÕDES 7" 
INPUT x 

CLS 

DIM ASB.K, 28) 

PRIHT AT G,16;" informacoes” 

PRINT 

FOR I=1 TO x 

PRINT PINFORM, “:1204 *; 

GOGUE 13768 

PRINT Ogiz TO 5 


LET Ag. 19)=085 

NEXT 1 

LET B$=" "+CHRE (255) 
RE TJPE 

LET R$="" 

PRINT AT go lB; "entradas" 


ASI 
16K 


1— ESTRUTURA DA FICHA" 


3- PESQUISA ALTERRR HHULAR 


e» 


PRINT AT 3,0;"""Z22"" REGRESSAR AO MENU” 
PREIHT O CEXEESE ERP ERRAR RA 


PRIHT 

FR I=1 Ti! x 
GUSUIE LEA 
GUSUE 157/08 


4 PERIHT Bco TO + 


IF g$="Zog" THEH RETUEH 
LET KE=k$E+-UE 

NEx7 1 

E 

LET FRó=CHES CLEH EE+I o+kS 
GUSUE mim 

GUTO 428 

FAST 

LET C=E 

LET Cileç+) 

CT C&o jato 

LET Dg=0s 


RR PR O 


SS 
EG 
Pt 
re a 
fem 
730 
val 
si, 
"94 
sau 
s1% 
828 
830 
840 
BB 
º GB 
º B80 


 B98 
- 200 
910 
928 
938 
| 940 
- 950 
| 260 
"978 
988 
398 
“1908 
AB10 
1259 
“1066 
“187A 
1880 
1106 
1116 
1120 
“1149 
1158 
“1168 
178 
“1188 
1198 
1205 
1238 
1248 
1259 
iz6h 
1278 
1280 
1238 
1308 
1318 
32% 
“1338 
1348 
1254 


4 


ie 


LET DEC 1 


TO CODE R&.2Z>)-1 2=REC3 TO I+CODE RELgo) 


LET C$c1 TO CODE B$CC1)2-19=B$.Cli+1 TO CI+CODE B$CC12-1) 


IF Lg 


o Lo da 


THEH GUTO 38 


LET C=C+CODE BECC) 


GOTO 


E Sta 


LET B$=B$c1 TO C-12+RE+BECC TO 


SLOW 


RE TUR 


2=02-1 


LET Ci 


LET Cli=C+1 
LET R$="" 


PRINT 


PRICÇHA ";Cas”: 


FOR I=1 TO x 


GOSUB 
GOSUB 
PRINT 
PRINT 


GOSUB 


1680 

1628 

AT 16,8; ESA OO O O RO RO O 

AT 18,90;">NEWLINE- AVANCA SEM ALTERAR", "o>vozidoo = 


1376 


IF Q8="" THEN LET R$=R$+B$CC1I TO CIFCODE BECCÇlo-l) 


LET C 
CLS 


1l=C1+CODE ESCCI) 


IF 08="" THEN GOTO s6%M 


IF Gg="Z2l” 


THEN GOTO 370 


LET R$=ER$+0E 


NEXT 


I 


LET B$=B$ci TO C-1)+BSCC+CODE EBELCo TO O 


IF (4 = " AE SE Ada 


THEM RETURN 


LET R$=CHRS CLEM R$+192+RE 


GOSUB 


618 


RE TURN 
LET C=2 
LET Có=g 
LET C2=1 


PRINT 
PRINT 


AT Mg, il:"pesquisa” 
AT 3,8;,," >PPESQUISA NORMAL PELO HOME” 


PRINT “">HEWLINE- PELA PRIMEIRA FILHR” 
PRINT EEE CO 
GOSUE 1578 

LET SE=5 

IF S$="" THEN GOTO 1318 

IF C+2=LEMN Eg THEM RETURN 

FAST 

LET Cimç+i 

IF LEM Sé<a4 THEN GOTO ledh 

IF C4=1 THEN GOTO 1318 

FOR I=1 TO & 


IF BSCCi TO CI+CODE BSCCI 2-1 )=55 


THEM GOTO 1318 


LET CI=CI+CODE BSCC1) 
NEXT 1 

LET C=C+CODE BESC) 

LET Ce=C2+1 

GOTO 1178 

LET Ci=i+1 

IF C+2=LEM B$ THEN RETURN 
CLS 

SULA 

PRINT "FICHA “;Ca;t:—" 


ANULA A FICHA” 


| 
| 


. e — er om tum sb 


USAR 
Mv E O Nin 


po fed qo fd qual pai fot qu Ai Jud qui. 
+— 
nm 


o 
ARE 
- 
a 


a 


p 
-— 
od. 
pi O 
, qr 
eb 





+ GOTO 


Ph IMT 
GSE Jedi 
LET Le=lgo+rl 


um” bom 


PRINTORT 16,84 "ooo aa 
SEGUINTE”, rare» 


PRIMT .,"2HELIME- FICHA 
ALTERAR" 

INPUT Pg 

CLS 

IF P$="" THEM GOTO 1316 
IF PSL>"ARA" THEM GOTO 
LET C=0-c3 
LET Cós 
CLS 

GUSUE 776 
LET Cg=1 
LET C=2 

IF PS="Z22" 
CLS 


Lola 


THEN RETURN 
1178 

IMPUT 14 

LET E=CHES CLEMN Gg+1 +yS 
RETURN 
PRINT 
RE TIR 
PRINT BBcCÇi+1i TO 
RE TURN 

FUR I=1 TO & 
GOZUE LEME 

GOSUEB 1620 

LET CI=CI+CUODE BSCCI> 
HMEMI 1 

LET Co=CODE Eco) 

LkT LES SLUDE BECL 4 


AecI,Z2 TO CODE ASCI,122;": 


CI+CODE 


* RETURN 


“UHNIFILe" 
Lts 


SAVE 
COUTO 


- REGRESSAR AO MEMU", "> ARO 


B&.Clo-1) 


case “UC UNNUO GUGOU UNL GUMUS GUCUS mano chUMs CMS GUUUS GULOS cUMUS Guiss SMNS Gacss cemms pUUUS ORGS UNS SUNS UNOS quNSs mslir Susi om suma minis comu minis cacto auetm sedes GENOL UNOS qaUIl NUS PAU qua cuNS GUNS qUNAS qUUUs APIs IRIS mtas munma munma amas qiaas 
Temas Puno SMDS DUmOS quado GUUUS qua Duas cotas qulDs GUS SNIS SNIS cado aoims uios cuia ORAS UhOS GUNOS UMIS URSS UNOS SUTIS TERES SUUSS SUNUS URU quads EUINS NUNES GNU UNOS GUI GULOS TUTO ROMS suaMs cuNAs URSS cUuMr penIU aulas anima midur aims quai mamas amu aus 


JORO PORTUGAL pretende vender o 


e o modulo lJek por ur preco em conta 
Contactos: rFezceo ou S41B4 CITMBRA 





ZX81 
(Adaptação a outros, 


EDUCAÇÃO 2.000. MATEMATICA... «« CALCULO DO POLIHÔMIO DE LEGENDRE 


PROGRAMA EM BASIC ..cccccautor : Ur.Hurelio Fernandes-Aveiro 


DESCRITIVO : O Folinomio de Lesendre de grau mn e dado por 
2 x n=1 nel 
Lo o ÇO) eee m———e LÊ. (CX) XX meme xl (4) 
n n ne n n=e 


em qQUE 6 


PROGRAMA 
REM METODOS NUMERICOS 
PRINT "QUAL O GRAU DO FOLIMOMIO GUE PRETENDE CALCULAR TO 
INPUT 1 
PRIHT "GRAU =";1 
DIM LC 1412 
PRIHT 
PRINT "QUAL O VALOR DA VARIÁVEL Tº 
INPUT & 
PRINT "Mx = "5% "RA 
FOR N=i TO I+i 
186 IF iN=i THEH LET Loto=1 
Lig IF NH=1i THEN GOTO 1958 
126 IF N=2 THEM LET Leotiio=a 
134 IF N=2 THEN GOTO 158 ' 
140 LET LeHs=CeAH-=1 22/HELCH-L DEM N— 1 D2NELC H=Z > 
150 HEST & | 
166 PRINT,,., "PARA M=";AME coeaN=";1,,,,4"º0 VALOR DO POLIHOMIO * 
E PIA RA A 
17 PAUSE SBh 
180 CLS 
134 GOTO 1H 


O2052DADAM 


SDL m 


DESERYVACAO : ESTE PROGRAMA FOI ELABORADO NUM Zi, MAS MAO OFERECE 
GUALQUER DIFICULDADE DE ADAPTAÇÃO A OUTER MAQUINA 


EM ERSGSÕ IT — 
CC —e— os me me ne 
SESUESnnEnn==s SPECTRUM 
16 ou 48 E 
Introduza em primeiro lugaroerograma em BASIC da linhaai 


210, aravando-o do seguinte modo: 


4, 
SAvE “Reversi"” LINE 10. 


Aaora que tem o erograma gravado vai dar INICIO 2 
introducao do codigo maquina. Fara 15580 use o comanda CLEHE 
3139439 = de entrada dos JES butes Como seguinte prograrma: 


ly LET s=A 

co FOR neseglii TO 32575 

Sa THPUT b 

44 POKE mto 

a LET s=s+ 

O PRINT mn; TAB 105b; TRE 2B;s 
O HEXT nm 


vepois de ter dado entrada de todo o codigo maquina deve 
arava-lo desta forma: 

SAVE “"mcode"CODE J21l11L,4ES. 

Heste Momento, com os dois Programas agravados, pode 
verificar o seu trabalho. desim inicie o gravador no 
principio do erograma em BASIC, utilizando o comando LORD 
"º. Nao desligue Oo gravador ate dar entrada do segundo 
programa em codiao maquina, sem que para isso seja 
necessario qualquer comando, ja que o programa em BASIC 
automaticamente o fara pela irnstrucao dada na linha SS 
LUND “PLODE 


APRESENTACRO CO JOGO 


|234967 8 A finalidade do jogo e passar 
anvss.d a todas, ou q maior numero, de 
Dec. w us ob pecas do adversario (<SPECTRUM) 
Cant é ma E para si, o que lhe e permitido 
dores 0 nos seguintes casos: 
oa. 
Enem...” OX Ou — Tas [us [9 
x sra 
Ra e GR dr A o o o 
12345678 “4 e — Da 
o o 
Ea Em o 
pol ps — c 
o o 
(1 e] q 
A, A E o 
UA DO) Em [aa 


vo pode fazer movimentos em que seja possivel passar pecas do 


adversario para si. Exemplo: 
ma €) CJ, a De A 


A 


Fo 


et Sm 


Do(VAr "**a s— ET DOS Cr 
jo + 
- dci ua us - ma SS ol di 


Peproduzido e corrigido por J.Magalk 1425 


Junho8&3) 


- SECT: Lol. fou 43 E) 


tao —- + -—- 
ae vã Ti 


“ + 
e A ud ido do 


“nana, p é É 
o dg iodo do dubdo d o Ny 
— O mao a qm 


LO CCTC 38Q 


a FOR b= 
+: RETIJKN 

38 FOR k=-1 TO à 
FOR c=-| TO À 
LET d=m: LET ezm 
IF acdtb,e+c) += THEM 
LET d=d+b: LET eze+c: 
IF acd+b,e+cos>t THEM 
IF ad, =)=s THEM LET 
LET atd,ej=t:o TF m=d AND 
LET d=d-b: LET eze-co so TO 
NEXT cc: NEXT b: RETURN j 
PRINT AT GB, 11; "REVERSI" t 
PRINT AT 2,4; "SFECTRUIM 
PRINT MI £,16;"HE "COP? 
LET z=4 
LET az: LET ha 
PRINT AT (7Z+12,19;" 12340678 * 
FOR b=2 TO S: PRINT AT cb+z2, 19;CHES Ccb+raSo; 
FOR c=2 TO & 
acb,c)== THEN 
at b,c2=0 THEN 


RU T 
= é o to pn 
Ed Vol A 


Pa Ap » & 
(Your Conmputer nº 'o] 


1 TO 10: FOR c=1 TO 18: POKE cszoBa+cb-1 sElB+C),acb,c): HEST Cc: HEAT 


+ 
EN 


GO TO 30 
GO TO GM 

GO TO 128 
di=i+l 
n=ze THEM 
a 


Pen cd BURRA 


VNVOVHODSNSCA 


GO TO 128 F 


No 


MM a DO DO 


pó tá t& jo jd juê 
E 


- tos 


-s 
4 a 
= su 


Leia 


uy r+ 
& O 
SS 


PRINT "x" 
PRINT “o” 


219 
Prados 


e 


240 
« 50 


atb,2)=f THEN 
atb,c2=x THEN 
atb,c)=o THEM 


PRINT "4 
LET g=9t+1 
LET h=h+1 


z50 NEXT c 
208 REENTECHRS cb+95) 277 Print CiRg (D+95) 


INT AT <z4 
: 12245678 " 
sa IF ath=64 THEN” “Go TO alia 
318 PRINT PRINT TAB B;"SPECTRUM " 
“28 RETURN 
“30 FOR b=1i TO 16: FOR c=1i TO 18 
“0 IF b<>1 AND c<>1i AND b<X218 AND c<>1ig THEN 
358 NEXT cc: NEXT Db 
“50 LET a(ç3,5)=x: 
ar RETURN 
sa88 CLEAR 31999: POKE 23609,73: LOAD ""CODE CLS Ã 
390 PRINT AT 11,4; FLASH L;y"Desligue o gravador" | 
dga DIM acig, 184%: LET zé=" ": LET f=46: 
111: LET r=6: LET u=57: LET u=k+rk: LET wu=k+y: LET x=128 
4a PRINT AT 28,8; "Qualquer tecla para comecar": IF INKErvó="" 
420 CLS PRINT AT 1lL,g;"Aquarde um momento": GO SUB (3) 
428 CLS PRINT AT 10,3;"Este jogo tem dais niveis.";AT 13,3;' 
CENTER 2> - Diricil" 
INPUT 1: IF iI<i OR 122 THEN GO 
IF 1=1 THEN POKE 32523,4: POKE 
POKE acIca,eas: POKE 32529, les: 
CLS PRINT AT BG, 12; "REVERSI” 
PRINT AT 2,2;"Para o teu movimento, 
NUNOR Ejs CEGA” Pe 


= Ela 


TIJ “ris ud VN) 


e e 01. 
195 4 


LET acb,c2=f 


+ 


LET aç6,62=x: LET a£6,359=0: LET a(cõ5,62=0 


LET j=y: LET k=45: LET q 


THEH TO 418 
SUB 2 


SENTER 12 = Faé! 


La) 


e 
3a 


esti 
S39 
SE 
ar 
42 
de 


TO 449 


sede dd: POKE 32530,0: 
POKE 30320, 125 


a TO 476 


da. entrada da letra seguida 


! 


444 LET z=6: GO SUE Iv 
b 


SOB INPUT “Queres jogar primeiro cScHotias 

SLB CLS : 60 SUB 1380 

dog IF q6="5" OR aqg="5" THEM GO TO G4m 

Ss PRINT AT 11,2;" SPECTRUM “MIT le,B;z0;AT 19,0;29 


4a LET são: LET t==< 
SS FANDOMIZE 

So LET 1ZySR Ses 
sra IF as atD r=zyg THEM GO TO sa 

s88 IF iz THEM PAUSE SO: BEEP .253,25: BEEP .23.20: PRINT AT 10,5;"Nao posso"; 
AT 11i,S;" iogar": PAUSE TVE: GO TO ESA 

SGA LET izi-32A0H 

sã LET m=INT caido 

Blá LET n=i-mtliy: LET =m+1 

620 BEEP .25,25: EBEEP .25,28: PRINT AT cómo, intigo; FLASH L;"x 

6390 GO SUB 30: GO SUB 28: BEEP .25,.25: BEEP .23,13: GO SUB 160 

5494 PRINT AT 11,2;"TEU MOVIMENTO";AT 7,B;zZz6:;AT 6 Bp"""Zo""-Se impedido":;AT 7.6; 
“devijogar”" 

CN LET s=x: LET t=o 

SEM IHPUT pê: IF LEH pa<>2 THEH PEIHT AT ig,4; FLHSH is"Entrada de 2 caractere 
s não ";LEN pã;” "o SO TO SEM 

Sra IF pg="z9" OR pg="92" THEH LET r=8:0 GO TO 758 

BEM IF (CODE p$>v AND CODE p&cyw AND pEC2)2CHRE k AND gEc2ccHES v> OR «CODE p$S> 
k AND CODE pé<u AHD pEc222CHES & AND pSC2)CCHEE wo THEN GO TO 700 

628 PRINT AT 132,4; FLASH L;"“Nao podes josar ";p6;" Tenta de novo": PRINT z$; 25: 
GO TO esa 


“a 


+ 


“780 IF CODE pé>k AND CODE eé<u AND pEC222CHRE » AND póc2oCHRS wu THEN LET p$=p 


sc22+pEc 1) 
718 LET m=CODE pê-3S: LET n=VAL palc2)+l: LET r=cm-lokKIDAn-I 


“720 IF a<m,n)X>f THEN GO TO 308 


"30 LET j=0 

r48 GO SUB 30: IF j<il THEM GO TO 750 

rag PRINT AT 132,0; FLASH D,28;75 

7680 PRINT FLASH B;z8;z8: IF r=0 THEN GO TO 338 

7?B BEEP .25,25: BEEP .25,20: PRINT AT C<á4+mo,Cn+t1S); FLASH 1;"o 
780 GO SUB 20: BEEP .25,25: BEEP .23,13: GO SUB 168: GO TO 338 


age ae mom =f 

Bed PRINT AT 19,0; FLASH 1;"Nao podes josar ";pB;" tenta de novo"; FLASH B;º *: 
PRINT FLASH 0;28;,2$8: GO TO 668 

8180 PRINT AT 10,0; Z5;AT 12,0;z$;AT 13,0;z$8;HT 16,0;28;25 

820 IF a>2h THEN PRINT AT 18,0; "Ganhei, "ig; — “sh 


y ES0 IF ash THEN PRINT AT 138,80;"Perdi, Ch; — “ig 


, 


a4g IF a=h THEN PRINT AT 15,0;"E um desenho "ig; —- "sh 
858 INPIIT "Pretendes novo jogo” (5-/N92"a& 


“S6B IF g$="n" OR gg="Nº THEN STOP 


fá 
o 


gra CLS : PRINT AT 11,8;"Aguarde um momento": GO SUB 3380: GO SUB +: 
s8B CLS : INPUT "Escolha o nivel £1 ou Er "dl 

98 IF IX1i OR 122 THEM GO TO 384 

ga IF l=i THEM POKE 32528,0: POKE 32324, POKE Z2E330,0: GO TO d 
aig POKE 32528,205: POKE 32522, 173: POKE 2930, 125: GO TO SBB 


4 
o 
Es 





do 
tá 
o 
rt 
2 
e! 
++ ' 
TX 
q 
e 
bu 
em 
= 
ds 


e e NS umas mms cms mio cm DO a O O e O US a AS A e A a AAA URIA UMAS TUTAS MA AMAM cata 


PROGRAMA REVERSI. a. <.<«SPELTEUIM. cc. ACIMA T DHURIDHO 
32111 62 56 1980 HS 62 1i5 190 dE 3 dB 
selei 197 125 684 59 187 i12Zã cai 25 106 Ida 
a2191 33 107 iZã 134 50 106 lei cal cg a 
3e141 50 107 1253 125 143 111 205 Iii lZôo cz 
Selo) lil 1298 40 243 201 62 38 Hr Lg 
32161 125 129 111 205 111 1253 62 111 1928 am 
“eltri 245 201 125 254 39 202 134 126 o4 Ré 
Sele61 282 134 126 254 134 202 134 Ida cos le 
32191 202 134 126 254 Gr 20e l42 126 FIS BA 
“2e2n1l 202 142 126 254 55 2C02 l42 126 254 Eq 
“2211 262 id2 126 254 649 CH2 l42 ge cos cg 
2221 202 142 1265 254 59 CHE ldZ lZé 2ss GE 
2231 202 142 125 254 44 202 192 126 2534 GZ 
2241 202 142 126 284 39 202 142 126 Cod der 
22251 202 192 125 254 17 202 142 126 254 16 
“2261 202 142 126 254 15 202 142 126 ZGSG 14 
22271 262 1942 126 2E4 358 di 126 254 ss gMH 
22231 tez 284 Ta 4 lis 234 PB dg ild cos 
32201 VP 42 110 254 VE GA LHE 254 VÊ qm 
Sezg1 102 254 74 46 328 254 73 48 94 Sa 
22311 72 48 94 254 63 4H GE 274 ES 40 

3es2c1 32 254 58 4A TB 254 53 48 74 254 
32531 48 40 70 234 43 40 66 054 23 46 

3e341 62 254 33 480 58 254 29 4H TI 234 
32251 28 48 58 254 27 4H 46 2Zod Ze dh 

32261 42 254 25 480 38 254 24 40 4 254 
32371 23 40 38 254 22 40 ZE 234 16 4H 


e2 254 13 46 153 58 106 125 201 58 


3c391 106 125 283 39 203 39 201 58 106 125 
32401 283 39 201 58 106 125 60 205 47 afBl 
32411 237 75 1139 92 205 43 45 239 161 15 
22421 52 535 22 4 32 128 635 0 B 126 


509 2 161 3 49 56 2053 162 45 237 


32441 67 115 92 201 62 0 58 185 i25 50 
ve451 108 125 50 1909 1235 6 "8 33 Àà1 125 


4 PE 4 


1260 133 111 62 46 1590 352 100 as 
a SA 106 1253 14 11 203 123 125 ces 
229 205 156 125 225 2232 13 205 133 125 
225 229 205 156 123 225 229 13 285 139 


125 225 229 2053 196 125 22) 223 14 1 


e Po 
a 


Sevii 203 199 123 Eco Zes coa 156 lo Cio Ce” 
S2eJ21 582 106 123 234 0 44 4H 0 o 

3253391 33 103 125 1980 56 31 32 1º ddo 197 
32941 229 205 1353 126 33 A 7a 167 SF 66 
Je551 S6 le 225 193 241 50 105 120 C2so 34 
32561 108 125 24 4 225 193 241 Z2i 16 Id 
sesdri 237 75 1908 125 201 à 4 DO q 


INTRUCOES PARA O PROGRAMA 
OTHELLO <Fernando Preces) 


publicado no numero 8 - Maio 


Comandos para jogar 


Hs teclas de 


setas 


que e o utilizador a jogar. 


H intercepcao desses dois 


apontadores marca, as 
coordenadas, ponto aonde 
SPECTRUM ira colocar a nossa 


pedra quando for premida a 


tecia *0". 


Reara fundamental do jogo 


Uma pedra somente pode ser 
r 


colocada Tur port 
estrategico, tal que combata 
= aniquile a Posicao do 


adversario. 
Para o SPECTRUM aceitar 
POoSITal e necessari 
oposiTao exista ja 
da. mesma cor, ( 


aCão dE 
ta atribuicao. 


é 
, mm 
Ta 
uy 
E 
“us 
mp 
in 
+ 


movimento, 
marcadas com as respectivas 
direccionais (teclas 
dm, É 7 e & > deslocam os 
dois apontadores 4 —» que 
aparecem no Jogo a direita 
do tabuleiro, todas as vezes 


LO QUE er 
uma pedra 
SPECTRILIM 
programado para as 
do jogo e NÃO ACEITA 


POSicoes que 


| 
NM 


, À LAS 


(pag. seguinte: 


JORGE AGUIAR“Porto 


Este programa. apresenta um 
ficheiro de nomes, enderecos e 
numeros de telefone. 

Contem um menv com É opcoes, SE 
das quais são usadas para 
processamento de dados. 

Cada ficha contem 48 espaços; 
desses 48, 28 sao usados para 
o mome, 2B para a morada e & 
para o numero de telefone. 

No total, podem ser abertas 
lgg fichas. 


O ficheiro pode ser consultado 
a qualquer momento atraves da 
segunda opcao do menu. Esta 
funciona dando entrada a um 
nome, procurando-o no ficheiro 
e desenhando um quadro com o 
nome, a, morada, etc, Esta 
opcao tambem permite obter uma 
copia da ficha que esta na 


ECPAN. 


E tarmberi possivel alterar 
qualquer ficha ja registada, A 
terceira opcao permite-o 


dando entrada a um nome. Entao 
Ç computador 1Ha. ErOCUMIr a 
ficha com vv nome indicado e 
tudo rosseguira como se tw. 
estivesse a escrever novamente 
essa ficha, 


A quarta opcao mostra todo o 
ficheiro, dando a 
possibilidade de copiar as 


fichas para a Z% PRINTER. 


Finalmente, a. quinta copcao 
pode apagar qualquer Ficha, 
dando entrada a ur NOME, 
EeroOTurando-o nu ticheiro «& 
puma ndo para a. POSITÃO 


todas as fichas que 
POSILTCOES 


anterior 
EStIiverer nas 
seguintes a da ficha pedida. 


Eee aravar o ficheiro actual, 
utilizando a sexta opcao, tal 
emp pode chamar 2 Lar 
ficheiro aqravado anteriormente 
POr == te 


a perOQGrama e oa ATO 
nome escolhido Por shi. 


Es 
4 


Pra aaa Do À a DM = 
SEE EC TIRSIr 


FICHEIRO DE EHDERIEC 


pio te. 


auto. “a TORGERGiiitAR Pao Too 
SA>REIM "TELEFONE": REM Producao exclusiva de doze o Totrqe 
6 LET z=H: DIM ag lug, 4E 
184 BORDER gd: PAPER Bo INE To Cla LET gs="" 
110 PRINT AT 1,13; FLASH 1:"OPCOES": PRINT AT EI3; nn á 
128 PRINT AT 3.1;"1-Abrir uma ficha” 
1380 PRINT AT 5,1;"2-Consultar o ficheiro” 
144 PRINT AT 7.1l;"2-Alterar uma ficha” 
156 PEINT AT 2,1;"4-Verificar todo q ficheiro” 
164 PRINT AT 11,1;"5S-Apaagar uma ficha” 
161 PRINT AT 13,1;"E-Gravar ou chamar dados” 
17 PRINT AT 17,1; INK 0; PAPER 7; FLASH L:"ATENÇAÃO";: FRINT "io ficheiro so co 
mporta. 100 fichas.” 
188 PRIHT AT 21,1;"Escreva o numero da sua opcao." PRINT FLASH 145%" 
19A LET z$=INKEYS: IF z&<"1" OR z8>"7" THEN O Gu TO 134 
2a GO TO VAL zEXHIigana 
1904 BORDER 7: PAPER 7: INK B: CLS 
1918 LET z=z+1: PRINT THE 4; INK BG; "ABRIR UMA FICHA": PRINT 
1828 GO SUE ESDB 
1828 LET agizM TO 289=b& 
19027 PRINT PRINT * Raora a morada,” Ph 
1838 GO SUE ESech 
1835 LET afçczxX 21 TO 482=b5 
1846 PRINT : PRINT" Raora o telefone.” 
1956 INPUT LINE bg: IF LEN b&>S OR b$="" THEN GO TO 11H58 
1a6A LET agézx 41 TO 459=b5 
Jara GO TO 108 
2gaa BORDER 7: PAPER 7: INK 8. CLS 
2918 PRINT TRE 3; INK B; "CONSULTAR O FICHEIRO": FRINT 
2828 GO SUE ESB6: GO SUE 7BAB: IF i=i THEH GO TO dn iio 
2420 GO SUB Soa: GO TO 108 
3200 FEM ALTERACOES 
agi BORDER 7: PAPER To INE go Clos 
“926 PRIHT TRE Z; INE B;"ALTERAR UMA FICHA": PEIHT 
383A GO SUE ESga: GO SUE FOBa: IF 1=1 THEN GO TO Shao 
casa GO SUE agog: CLS PRINT "“Rigora pode altera-la,": PRINT 
sAsa GO SUE ESBEG: LET aBínmkx TO gBi=bS: PRINT PRIHTOo" Racra a morada,” 
Sa6A4 GO SUE ES2H: LET agínmxei TO 4Bº=b$0 PRINT PRINT o" Raora v telefone.” 
SaA?Pa INPUT LINE bg: IF LEM té>e OR ba="" THEb O GO TO cri 
asas LET agénmx 4! TO ge 1=bg: PRIHT ra 
3840 PERINT "Quer ver como ficas” ERIHT FLASH LolcseNaA” 
“1080 LET z$=INKEYS: IF zec>"s" AND zéc2"n" THEN GO TO Sigo 
ajig IF zé&="n" THEN GO TO jHg 
2120 GO SUE SABB: GO TO 7 
sgam EORDER 7: PAPER Vo IHE Bo Cla 
gg FOR n=1 TO LHE 
aBg2t IF abimpmr TU ctys=" “THEN GO TO ggSE 
gaga GO SUE gogk 
Sus HEXT mm 
ams CLS PRINT “E tuda. Quer ver outra vez": PRIHT FLASH Loco” 
40ER LET ze=INKET&o IF zésPtst AND zen" THEM O GO TO qok 
Sara IF zé&="=" THEN GO TO qugy 
saem GO TO lag 
Saga BORDER 7. PAPER q INK 8: CL& 
sala PRINT TRE &:; IME GorAPAGAR UMA FICHA" PEIhT 
salsa GO SUE cSBl 
SMA GO SUE PARE 
sas IF 1=1 THEM o GO SUE ate 
pts (al) SE Siad 
duSE CLS 
sas FOR v=n+i TO z+1 
SME LET agru-tm TO 4E=aBlwdr TO quo 
Sar NEXT 


E 


7 


om 


Programa 


SsASA LET z=z-1 

SEIQBAFARAPNEADA SIX Print "Ticha eliminada * 

5110 INPUT "Prima “ENTERC."; LINE Z9 

sleg GO TO 188 

baaa BORDER 7: PAPER 7: INK QB: CLS 

een PRINT TRE 3; INK B;"GRAVAR OU CHAMAR CADOS": PRINT 

sO30 PRINT "Quer agravar ou chamar dados?CGoCa" 

EB4A LET Z$S=INKETS: IF z$<>"a" AND zgce>"c" THEN GO TO egsm 

EBSA IF zé="c" THEN GO TO 6210 

GA6B CLS : PRINT TAB 1i;"Meta na entrada “MICO do grava- dor o cabo ligado a entr 
ada “MIC- do computador": PRINT : PRINT 

Gaara PRINT "Pronto?": INPUT "Prima “ENTER quando pronto,":; LINE z$ 

GuSA PRINT AT g,8;" R 

60853 INPUT "Qual e o nome que quer dar aos dados”"; LINE Z5 

6B90 SAVE "TELEFONE" DATA asc» 

6190 CLS : PRINT FLASH 1L;"PARE O GRAVADOR!" 

6110 IF INKEY$="" THEN GO TO ELLA 

ELZA CLS : PRINT "Recue a “Cassete” ate onde come-cou a aravaçao 

61384 IF INKEY$="" THEN GO TO GI3A 

614. "PRINT : PRINT "Agora meta na entrada “ERR” do computador o cabo ligado nã 
en- trada “EAR” do gravador, ": PRINT | 
€é150 IF INKErv$="" THEN GO TO 6138 

GL6G PRINT "Ponha o aravador a tocar normal-mente e prima “ENTERT." 

Gl7g INPUT LINE z& 

1753 CLS 

6177 PRINT "Caso o programa parar e escre- ver “kk Tape Loading Error“ pf“ est 
rever “GO TO 100º e gravar o programa novamente. 

6180 VERIFY z$ DATA ame > 

6198 CLS : PRINT "Pronto. Prima “ENTERO." 

Geng GO TO IBR 

E210 CLS : PRINT TRE l:"Meta na entrada “ERR” do grava- dor o cabo ligado à entr 
ada. “EAR do computador": PEINT : PRINT 

Geeb IF INKEr$="" THEN GO TO 6228 

Be38 INPUT "Qual e o nome dos dados desejados?"; LINE z& 

gesa CLS 

poda LOAD z& DATA age > 

Beba GO TO LBy 

ES PRINT 

ESL MT PRINT " Escreva o nome," 

pic PRINT "sem exceder 20 caracteres,” 

6538 INPUT LINE b&: IF LEH bg22a THEN GO TO 6538 

Gas RETURN 

Faga PRINT 

algo FOR n=1 TO gg: LET i1=B 

vAgã IF asim TO LEM b$2=b& THEH GO TO PASSA 

rB30 NEXT mm 

rasga LET i=i 

rasa RETURN 

BRA DIS 


Bl PLOT Gira: atal sad DRAW B.o-ivãa: CRAL -2So0,g: DEAL DIVÃ 

so2a PLOT 13,0: DRA gG,ivia 

90 CIRCLE 6, 17,3: CURCUE 6,92,3: CIRLLE 6,97,3: CIRCLE 6, 122,3: CIRELE 6, 19Fs3 
BA4A PLOT 13,133: DRALU Z32,84: PLOT 13,184: DRA 238,8 

EASA PLOT 13,63: DCERALU Z32,A: PLOT 13,332: CRAU 226,8 


BASS DvER 1 

Bog FRINT AT L,16;"FICHA Ho. "sm 

oO PRINT AT E,es"HNOME:";asénx TO 202 

BA PRINT AT 184, 2; "MORADA: "iageonmxei TO 483 

Bro PRINT AT 15,2;"Na. TELEFONE :"iagcono 41 TO SE) 

Bigy FRINT AT 1H, INK 7; PAPER GB; "FICHEIRO DE TELEFONE” 
ELLE PRINT AT 286,3;" 13983 ty Jose Joraqae" 


wo Ty To Fo) 


e 


Silo 
212 
BlEel 
slco 
= 16 
GARE 
GL 
IB 
3838 





nad 


M 


PROGRAMA “FICHEIRO 


HORADA: 


HvER 


INPUT "Quer copiar” 
IF z$<>"s" AHHD z&<> 
IF z&="s" THEN COP 
RETIRE 

REM HHO EXISTE 
PRINT FLASH 1;"ESS 
BEEP .2,n: NEXT mn 
BEEP .4,Yr PHUGSE Va: 


Ccbservacdoes 


acrescentar as Seguintes 
10801 >IF z<ZiIBBTHEKN GO TO 
jog: FLASH 1: PRINT "ia 
lg: PRINT AT IS, DsPHAL 
las FOUR HN=1t TC! E STEF 
1BBS IHNPFIUT "usar ENTER"; 


HOME: CLUBE 


ND CDEMAG ITET CTLONPaM +inruecã 
DO DNVSIDOOS) do Sao ds alo de Ci do À mal se. .... COR cvINUeçaão 


FICHA io. di 


+ (O 


— 


HIS. BORA LISTA 


a 
“um 


dO. TELEFONE: DSL, 


PE TELEFIENE 
by rcJoOsSE cdarge 


Ç SA 4 "4 TT - 


“nt THEN 


L.IHE 
ME 


pod 
TO Gicza 


5, A 
| 


E HOME HAO EXISTE HO FICHEIRO": 


st TO 166 


Linhas 


110 
existem 184 FILHHO 
EXISTE ESPAÇO HO FICHEIRO 


Ho HEgsT ar 


tee 4 


-1: DEEF 
LINE 5 


HM EEEF 


FOR mn= 


2*2-T 


SY 
” 
1 TO & STEP ci 


[o 
o 


MO PRORIMO HUMERO IHICIAREMOS UME MOVA 
FUBRICA CA AUTORIA DE FERFHAHDO FRECES: 


FHFAHHELEHHEEKSEEAXKA 
x ESPALO X 
SPECTRUM X 
EXETHLHHAHEAEEEAEHA 








HELIERA TH 


a uam quem meus capua unas mena conga 
es eus um meus qu us cus roms 


a 
O 
et, 
to 
im 
= 
O 
Er 
ns 
qo 
—4 
+= 
T 
EL 
o 
= 
+ 
Q 


PEIS FELUISTO! 

CLOZERI: OPEMNBR A. Cat” 

VPEMNBL. Li. Cialeta” 

elot ranaeéc cad, BB centrec ahi IH, 

Plot degrees 

Eelot. track arcunde À tale 

PUT 2H ca 

cd mid 

E Lot F lLaceçStt SAS. maonel SM - 

Plot, Flaceli-ef,-dS o, "araundos * 

plot E Laceí BZ, 455, "Mina 

FE 

Plot Placeí -18, A turno at) 

FOR DO =5TAstA STEP a 
Plot turnéag-. DEE 0, colour as 
Plot movebsc35)% colouri 14D 
Plot Flacelc-ly, Ho 

HEZT D 

REF 

Plot, centreciag, 3H) 

Plot Placelc-lA Ao turn Sh 4 

POR DU =5 TO 6cAB STEPS 
Plot turncaB- DEE Sd colour 
Plot movebucssM colouréio2D 
plot Placec-lB,tH) 

HEXT D 

REI 

M=26: Plot centreclst, 34: 

Plot Placeltã,B>, turneiio 

plot draubaute2s,2): M=M - 6 

elot. turentMOo drawybacZõ3, 1) 

Fe fe [1 

E lot centre: Ass, P lacet, Ho td 2 | 

Elot turmi SA) | 

FOR 3 = 4 TO os! 
plot drama 25 E turn —E) 
Elot drama SO o) 
USE SH 

HEAT = 

elot, centrec lag, 34) 

GOTO 24H 

[cd id 

FOR = 1 TO 2r7a 

HEM T 

RE TUR 
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DO Cm DE CO Po O 00 =] rim EL 
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Janis tam 
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a 


| is 
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PROGRAMACAO ESTRIISITURACDA 
CTONtiINLACDAÃO 
= a aasmezarmRaIZaRREDDTDHODTHZaADTEEEIERCERaAAaRTADZOAXTaTEZERES 


iria "STUCTURED COBOL". PHILIPPRKIS Andreas e KEACMIER Leonard 


Traduzido = ad 
Ei 


adaptado ao BASIC por 
FRANCISCO ” 


JR. SANTOS 


H convergencia de 1 a 3; Fara melhor elucidar q exemplo: 
todas as frases de 
GO TO para HEXT-P & 





compativel com os 

principios da : 

programação 

estruturada, err QUE 

cada trabalho a Nao 

estruturado deve € 

ter LATO ponto de 

inicio € um ponto dE hi ADD 1 TO 
de firms. KRepare-se q —20 DPS MARRIEDS 
tambem que GO-TO e q 

necessario nesta 


estrutura. Contudo, 
de modo a preservar 


DIVCRCEI 





a, propria 

estrutura, [m 

paragrafo - “+ 

referenciado pelo 

GO TO deve ser 

localizado 2) 

fisicamente E] a VA 


seguir aonde acabam 
as frases de GO TO. 
A estrutura CHASE 


pode ser tamberm 

executada em termos ORDINOGRAMAS ESTRUTURADOS 

de encaixar 

estruturas Tradicionalmente, os ordinogramas tem 
IF-THEN-ELSE coro sido usados por dais objectivos: O 
exemplificado Tio primeiro para ajudar o programador a 
ordinoarama desenvo Lver AT programa, logico; Um 
seguinte. segundo para servir de documentaçao a um 
Repare-se que cada programa completo. Hos ultimos anos tem 
IF-THEN-ELSE comeca havido uma tendencia para minimizar e 
e acaba marcado mesmo por de parte o so dos 
dentro de IATA ordinosgramase OQ caso e que, como tem 
circulo, para haver sido feito, se o programador utiliza os 
uma maior clareza. principios de uma, boa. PrOgraAmaTao 
Assim, por exemplo, estruturada, o Programa ja rorsigos 
cada estrutura, ur documento e portanto o ordinosgrama «& 
IF-THEN-ELSE superf lug. 

termina por LAT Ha aqueles aque afirmam que num meio onde 


circulo numerado de 


as alteracoes de programas sao 

frequentes, tendo para isso 
que se deserhar sucessivamente 
TIDUOS ordinocaramas, 1ISgo se 
torna macador = dispendioso 

Discordamos com estes que, de 
um modo radical, afirmam que 
os ordinoaramas são inuteis. 
Em vez disso, vemos QUE Os 


ordinoaramas sao uma, 
ferramenta util para, o 
programador e sua posterior 
documentaçao, e reconhecemos 


que o uso deste auxiliar da 

programacao não devera ser 

indiscriminado. Erm qualquer 

caso, para oO principiante, o 

O de ordinogramas e de 

arande valor. PT, Um 

ordinosrama estruturado ter 

que ter eztasz caracteristicas 

principais: 

- ser claro 

- ser simples e compreensivel 

- ter um principio eumtFirm 

ciaros 

- utilizar as cinca estruturas 

principais 
fsequencia 
*if-then-else 
&do-while 
&do-until 
fTase 

LOGICA CH PROGRAMACAO 

ESTRUTURADA 


Ja, temos visto que a 
programaçao estruturada. 
depende bastante da habilidade 
de dividir rr tratialho 
complexo em trabalhos simples 
E PEQUENOS , culos detalhes 
podem ser abstraidos, 

Cada parte de ur praoaranma 
estruturado e tratado como um 
pci Li O modulo Por si go € 
tura de programa, Term 


uma =estra 
entrada E ra saida E 


Tn a, 
le-zse naturalmente de cima 
para Daixo, podendo consistir 
er uma das cinco estruturas 
basiTtas do prROarama, 
LSEQUENTIA, 1t-then-else, do 
ARA do uwhile e 
modulo e referenciado por um 
TONE. o qual Deve Se 


Li 
de = A ado t. Luto po (IES INE L À Em EA = dm 


em um quem qr " E 
Es a, Pt dia ” 


a = 3.15 


ESSE TrorE n RR nome de 
paraarafio CI, rr TOME de 
SENTIDO. rr modulo nao deve 
exceder Uria. pagina, de 
comprimento, para poder ser 
facilmente tido. Finalmente, 


cada modulo «= executado por 
uma referencia de uma parte 
para, QU tra, de Programa, 
arralmente atraves do verbo GO 
SUB. 

A figura | apresenta em linhas 
serais rr prQqgrarma. 
estruturado. 

Figura 1 

Eegin Main Program Module 


Instruction 1 


Instructior hM 
Execute Module À 


Execute Module E 


Instruction nm 


End Mair Program Module 


Begin Module BR 
Instructiorn dd 


Execute Module 


Instructior mn 


. a. 


e 


— 


us SED. a e e jm 


—— Ds ma 


a apto so 


= Das 


End Module HH 


Beair Module E 


Instruction 1 


Instruction mn 


End Module E 


Fesin Module x 


Instruction 1 Pai 


Instruction mn 


End Module x 


De notar que ta um modulo 
principal E LATO Trumero de 
modulos dependentes. FR parte 
do modu Lo principal da ur 
EUMArILO do Programa — E E 
geralmente btastante pequeno — 
mo que o essencial do proararma. 
facilmente percebido TUD 
contexto do modulo principal 
chair Program Module), Repare 
que o modula RH e executado sob 
o contralto do recuo 
principal. nome do modulo 
erintipal for <sianificativo, 
nao precisamos de fa pues 
incomodar com os detalhes do 
Pode muito Dem ser o 


mo mm 


nf 


E <A 


modulo HH. 


caso QUE, como Tiro exemplo o 
rd Lo | e suficientemente 
ara rude CI, complexo QUE 
erecisamos dividi-lo mo madulo 
És fora do modulo He. Assim, o 
revi, Lo E executado A | a 
controle do modulo HH. que por 
Sa. vez e executado sopro 
comando do modulo principal. 
Hssirm E interligação destes 
modulos = permissivel E 


dese javel. 


* 


Precisamos so de ter 
quis assim que se alcance o fair 
do o madu lo, se retome co modulo 
Gus ASSEQUIA, a execucao das 
1Nstrucoes. Hssir, quando De 
modulo e executado voltamos a 
instrucão E dormodulo Ff; e agsim 
LE Da modulo Ho e executado 
seque-se para EXECUTE MODULE E, 


instrucao do modulo principal. 


Torna-se agora obvio que o verbo 
Perforim = exactamente m 
mecanismo de linguagem que se 


presta a este tipo de estrutura 
e ão controlo de execução. 
De salientar que esta estrutura 


basica term sido usada em 
ercaramas exemplo, ja discutidos 
AGUA EXHIBIT-1 apresenta um 
ExXTErto de Ure programa 
estruturado p= da. uma. 
oportunidade de cbservwar a, 
implementação de conceitos da 
estrtisra do proOqrara, 
discutidos neste capitulo. AR 


fica do trabalho, 
não e discutida 


= 
natureza Espec 
corno e claro, 
neste ponto. 
Ha, contudo, 
restrirnaem [a 


duas condicoes que 
SEU USO. Alaurs 


trabalhos sao comuns a mais que 
LATA PPrOQGrama, . Repetir a mesma 
1INSÊNrUÇÃO ET cada um desses 


programas e indesejavel. 

E dificil cara oz membros de uma 
equi Aa de eroaramadores 
trabaltharer simultaneamente mo 
ERON arNa, É facil 
subdividir o trabalho composto 
ET ErQqaramas independentes, 
constituindo cada um um modulo, 
QUE púOSSar ser ESCrIToOSs, 
compiladas ça por 
Eerqaramadores rabalhando 


nesta 


mm 
c+ 
0 


individualmente E 
independenternente dos OULrOS. 
Exte ultimo obriect neo e 
conseguido usando subrotinas ou 
subproOSramas. 

re pregar ara. =ubrotina, e Um 
erourarma tal como qualquer qutro 
Err aN a, excepto quando mao E 
executavel por ele Proprio, ou 
Se Ja. que so pode ser executado 
E) di + controlo de ct 
EU ara, Dies e ser claro, 
CONTUIO que Com GL sem uso de 
Err amas subrotimas, o 
Eergar ara dor de FASIC pode criar 
ErQarAarNas remo estruturados € 
modulares. 


a | "IM | 


ep peritos 


és 


+ 
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SOFTWARE SPECTRUM 


PROGRAMA : SHIP OF DOOM 
MAQUINA |: SPECTRUM 48 k 


TIPO DE PROGRAMA : JOGO DE AVENTURAS C/EMOCAO E ACCAO 


DESCRITIVO : O utilizador aterrou num planeta com uma avaria na 
nave.Verifica que o planeta e habitado e que existe um edificio 
sombrio, onde tera de se aventurar. 

Vai a procura de auxilio para reparar a nave, mas O perigo espreita na 
sombras;por isso tera de lutar para sobreviver 


PODE DIALOGAR COM A MAQUINA, USANDO PALAVRAS EM INGLES TAIS COMO : 
take; breaks cut; with,.. etc 


Depois de entrar no edificio, devera orientar-se de acordo com os 
pontos cardeais N-S=- E-tlW 


O JOGO TERMINA QUANDO SE DESCOBREM TODOS OS SEGREDOS DO EDIFICIO E SE 
ENCONTRAM AS PECAS PARA REPARAR À NAVE, DEVENDO ENTAO REGRESSAR PELO 
MESMO CAMINHO. 


TRATA =5L DE UM JOCO DE PALAVRES Preço /Clube 280... 350% 


EXELENTE 
Galica Da fa a Ra Sica Rca aa fa Dc ca a a aa aa a aca caca ac ca a Da ca da a Da Dad dc De ad de ada De ade de ade dead de dede dede dede de ade De De À 


PROGRAMA : (CORRIDA DE CARÁCOIS) 
MAQUINA ': SPECTRUM (i&k ou 48 k) 


TIPO DE PROGRAMA : JOGO DE CORRIDAS COM APOSTAS, ATE é UTILIZADORES 
DESCRITIVO : Neste jogo os caracois partem todos em linha, e um deles 


vai ficar doente. 


OS APOSTADORES PODEM APOSTAR NO MESMO CARACOL, ATE UM MAXIMO DE 100$00 
OU EM DIFERENTES CARAÁCOIS 


cai CNT va ba; rá 1! 
Preço jead Use 200 .. 3508 


RR a a RR a a a aa a a A aaa ea Da Da Da a e DD e De De sad 
CEA EAR NH 


PROGRAMA : POKER 


MAQUINA |: SPECTRUM tá K ou 48 K 
TIPO DE PROGRAMA : JOGO DE CARTAS C/TODAS AS NUANCES DO POKER DE 
CARTAS 


DESCRITIVO : PODE JOGAR COM O COMPUTADOR, SENDO ELE O SEU ADVERSARIO 


O VALOR DE QUE DISPOE PARA APOSTAR E DE $EiO MO MAXIMO E SERA SEMPRE 
OBRIGADO A IR 40 JOGO íminimo de aposta $l)» 


Tera no ecran um grupo de 5 cartas, e podera pedir para trocar ' 
qualquer uma delas - 


às combinacoes possiveis sao 


SEQUENCIA MAX. <A,.K,B,J,10) 


POKER CKSKAKAK) 

FULL HOME (D,D,9,9,9) 

FLUSH (AT, P,K,P) 

SEQUENCIA MIN.(K,0,J,10,9) 

TRIO CS) sab) 4 
2 PARES  (A,A,D,D) 

1 PAR (9,9) 


CARTA + ALTA 


OBSERVACAO 


AS CARTAS APARECEM NO ECRAN, DESENHADAS COM OS SEUS NAIPES RESPECTIVOS 


Preco/Clube Z2o... 3508 
PERES SA RD DS AD DD de da Dad DD Ra DDR e Dea caca a a ca Da aa aa aa 
EXEEEEEEEELEKEKEKELEKEEREEEXERSREREKEXEKEEEKEEEKEAEREERENE ERR RA 


PROGRAMA : MORSE 

MAQUINA |: SPECTRUM (Cié K ou 48 K) 

TIPO DE PROGRAMA : DESTINA-SE A APRENDIZAGEM E PRATICA DE CODIGO MORSE 
DESCRITIVO :Podera regular a velocidade de transmissao. Tera as opcoes 
de praticar com caracter a caracter ou com trases. 

Permitir-lhe-a escrever em portuques e escutar os sons respectivos (tdo 


codigo) ou inversamente tentar traduzir para codigo MORSE os 
caracteres ou frases que o computador selecciona de modo aleatoria. 


— a f q — 
Ea Go | attind Siulaé d 400 $00 





E Z dá 








Lo tt URB K sa a = 
sa E SE E E E E E E E E E E E E E E E E E E E E TE E DE E E E E E E 


ua Stem A CSÕCca COMO ASSUClIADO 
E E E E a E E E E E E E E E E E E E E E E E E E E E E E E E DE E E 


O CLUBE 2Z-80 esta aberto a todos aos utilizadores de micracomputadores. 


à intencao de associar os entusiastas das micro-maquinas, e 
exclusivamente ax de permitir 


| — PUBLICACAO DE UM JORNAL MENSAL, onde sejam publicados programas de 
uso geral ou especifico como no caso da educacao. 


e — PROMOVER TROCAS DE PROGRAMAS, e trocas de experiencias ; tanto no 
caso do Softwareípraogramacao), como no caso do Hardware (electronica). 


3 - PROMOVER DESCONTOS NA AQUISICAO DE PROGRAMAS 


4 — LANCAR CURSOS DE PROGRAMACÃO EM BASIC - PASCAL OU QUTRAS 
LINGUAGENS E DIVULGAR O USO DE LINGUAGEM MAQUINA 





AV DA BOAVISTA. 832-2º T 
TELEFONE 65127 : 
4100 PORTO e PORTUGAL . 


MP assume sra RSS ads TETRA A 






IDADE «ustesiia COMPUTADOR TIPO qusnurzaacase sê 





PIU Da é enredo TECICATINTE 


EM atri dá rs va rara ande nda nda a. u =... ..u.u....... ww... aq 


Ed 


ASSINATURA ANUAL  ——————— esc. 1500$00 [| 


ASSINATURA SEMESTRAL --—— esc. 250800 | | 


CHEQUE OU VALE DO CORREIO 
pp UR A papa nai É aee À TR ANO ums rsss encena is RSA da nata 


rístcro LL] 
tovo sdcro [| come À partir do mês de (inclusivé) 
o DS Mo 3 44 DRM 
ASS LM TUR PISA. DEDE EST EESC 
CARUÇA MO FIM PESTE MES. SE PRETEM- 
PE RENOVAR IJTILIZE ESTE GP, 


